home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / PRINTC.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  452b  |  23 lines

  1. DEFINT A-Z
  2.  
  3. FUNCTION CLR$(C)
  4.    IF C < 0 OR C > 31 THEN CLR$ = "@": EXIT FUNCTION
  5.    CLR$ = CHR$(C+128)
  6. END FUNCTION
  7.  
  8. SUB Printc (s$, ErrC)
  9.   ErrC = 0
  10.   FOR I = 1 to LEN(s$) - 1
  11.     A = ASC(MID$(s$, I, 1))
  12.     B = ASC(MID$(s$, I + 1, 1))
  13.     IF A > 160 OR B > 160 THEN ErrC = 1: EXIT SUB
  14.     IF A > 127 THEN
  15.       IF B > 127 THEN
  16.         COLOR A - 128, B - 128
  17.       END IF
  18.     ELSE
  19.       PRINT CHR$(A);
  20.     END IF
  21.   NEXT
  22. END SUB
  23.